﻿Imports System.Runtime.CompilerServices
Module IntegerExtensions
  <Extension()> _
  Public Function PariDispari(ByVal numero _
            As Integer) As String
    Select Case (numero Mod 2)
      Case 0
        Return "Pari"
      Case Else
        Return "Dispari"
    End Select
  End Function
End Module
